home *** CD-ROM | disk | FTP | other *** search
/ Enter 2010 January / ENTER_2010_01.iso / Programy / Gry / Base_Invaders_ / BaseInvadersSetup1.3.exe / {app} / Scripts / GameSettings.lua < prev    next >
Encoding:
Text File  |  2007-01-25  |  3.0 KB  |  129 lines
  1.  
  2. GameSettings = GameConfig();
  3.  
  4. function FullScreen( boolean )
  5.     GameSettings.Fullscreen  = boolean;
  6. end    
  7.  
  8. function VSync( boolean )
  9.     GameSettings.Vsync  = boolean;
  10. end    
  11.  
  12. function EnableShadows( boolean )
  13.     GameSettings.Shadows  = boolean;    
  14. end    
  15.  
  16. function AntiAliasing( boolean )
  17.     GameSettings.AntiAliasing  = boolean;    
  18. end    
  19.  
  20. function InvaderSpeech( boolean )
  21.     GameSettings.InvaderSpeech  = boolean;    
  22. end    
  23.  
  24.  
  25. function ChangeMusicVolume(  percent )
  26.     G.SetMusicVolume( percent * 255.0 );
  27. end
  28.  
  29. function ChangeSoundVolume(  percent )
  30.     G.SetSoundVolume(  percent * 255.0  );
  31. end
  32.  
  33.  
  34. local function CreateResEntry( W , H )
  35.     local A = {};
  36.     A.W = W;
  37.     A.H = H;
  38.     return A;
  39. end
  40.  
  41. ResolutionArray = {};
  42. ResolutionArray[1] = CreateResEntry( 800 , 600 );
  43. ResolutionArray[2] = CreateResEntry( 1024 , 768 );
  44. ResolutionArray[3] = CreateResEntry( 1280 , 720  );
  45. ResolutionArray[4] = CreateResEntry( 1280 , 960  );
  46. ResolutionArray[5] = CreateResEntry( 1280 , 1024  );
  47. ResolutionArray[6] = CreateResEntry( 1600 , 900 );
  48. ResolutionArray[7] = CreateResEntry( 1600 , 1200  );            
  49.  
  50. function ChangeResolution( value , num )        
  51.     GameSettings.ScreenWidth = ResolutionArray[ num + 1].W;
  52.     GameSettings.ScreenHeight = ResolutionArray[ num + 1 ].H;        
  53. end            
  54.             
  55. function ChangeQuality( value , num )
  56.     GameSettings.Quality = num;    
  57. end
  58.  
  59. function ApplySettings( )    
  60.     G.ChangeSettings( GameSettings );    
  61. end
  62.  
  63. function CancelSettings()
  64.     if( LevelActive ) then
  65.         MainMenu.OpenWindow( "InGameWindow" , true );
  66.     else
  67.         MainMenu.OpenWindow( "StartWindow" , true );
  68.     end
  69. end
  70.  
  71. function OpenOptions()
  72.     OldSettings = G.GetSettings();
  73.     GameSettings = OldSettings;
  74.     
  75.     if( OldSettings.Fullscreen  ) then
  76.         MainMenu.Message( "FullScreen" , "Check" , " " )    
  77.     else
  78.         MainMenu.Message( "FullScreen" , "UnCheck" , " " )    
  79.     end    
  80.     
  81.     if( OldSettings.InvaderSpeech  ) then
  82.         MainMenu.Message( "InvaderSpeech" , "Check" , " " )    
  83.     else
  84.         MainMenu.Message( "InvaderSpeech" , "UnCheck" , " " )    
  85.     end    
  86.         
  87.     if( OldSettings.Vsync  ) then
  88.         MainMenu.Message( "Vsync" , "Check" , " " )    
  89.     else
  90.         MainMenu.Message( "Vsync" , "UnCheck" , " " )    
  91.     end    
  92.     
  93.     if( OldSettings.AntiAliasing  ) then
  94.         MainMenu.Message( "AntiAliasing" , "Check" , " " )    
  95.     else
  96.         MainMenu.Message( "AntiAliasing" , "UnCheck" , " " )    
  97.     end    
  98.     
  99.     if( OldSettings.Shadows  ) then
  100.         MainMenu.Message( "Shadows" , "Check" , " " )    
  101.     else
  102.         MainMenu.Message( "Shadows" , "UnCheck" , " " )    
  103.     end    
  104.                 
  105.     for i,v in pairs( ResolutionArray ) do    
  106.         if( v.W == OldSettings.ScreenWidth and v.H == OldSettings.ScreenHeight ) then
  107.             local data = tostring(i-1);
  108.             MainMenu.Message( "ResComboBox" , "SetIndex" , data );
  109.         end
  110.     end    
  111.     
  112.     --OldMusic = G.GetMusicVolume();
  113.     --OldSound = G.GetSoundVolume();
  114.     
  115.     MainMenu.OpenWindow( "OptionsWindow", true );    
  116. end
  117.     
  118. function ExitOptions()
  119.  
  120.     if( LevelActive ) then
  121.         MainMenu.OpenWindow( "InGameWindow" , true );
  122.     else
  123.         MainMenu.OpenWindow( "StartWindow" , true );
  124.     end
  125.         
  126.     ApplySettings();
  127. end
  128.  
  129.